home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FST30A.ZIP;1 / X.MOD < prev    next >
Encoding:
Text File  |  1992-09-20  |  608 b   |  25 lines
  1. MODULE x;
  2. FROM InOut IMPORT WriteString, WriteLn;
  3. FROM People IMPORT Programmer;
  4. FROM MyKindOfProgrammers IMPORT Modula2Programmer;
  5. FROM Objects IMPORT
  6.   ALLOCATEOBJECT,DEALLOCATEOBJECT,MEMBEROBJECT;
  7.  
  8. CLASS CProgrammer;
  9.   INHERIT Programmer;
  10. END CProgrammer;
  11.  
  12. VAR m2programmer :Modula2Programmer;
  13.     cprogrammer  :CProgrammer;
  14.  
  15. BEGIN
  16.   NEW( m2programmer );
  17.   NEW( cprogrammer );
  18.   IF m2programmer.isSmart() THEN
  19.     WriteString( "this m2 programmer is smart" ); WriteLn;
  20.   END;
  21.   IF cprogrammer.isSmart() THEN
  22.     WriteString( "this C programmer is smart" ); WriteLn;
  23.   END;
  24. END x.
  25.